home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
STRINGS
/
PACKAGE6
/
LESS.DOC
< prev
next >
Wrap
Text File
|
1990-07-25
|
1KB
|
42 lines
----------------------------------------------------------------------------
FirstLessThanToSecond
----------------------------------------------------------------------------
declaration: function FirstLessThanSecond ( String1,
String2:
TypeString):
boolean;
purpose: Returns a boolean; if String1 is less then String2 then
boolean is set to true, if they aren't then it is set to
false.
precondition: String1 and String2 - both are two Strings that have been
initialized and have a value of TypeString.
postcondition: String1 and String2 do not change. The function is either
set to true or false.
special cases: none
example: var
String1,
String2:
TypeString;
begin
.
.
.
GetString1 (String1);
GetString2 (String2);
if FirstLessThanSecond (String1, String2) then
ExecuteSort;
.
.
.
end
----------------------------------------------------------------------------